Odoslat pomocou internetu SMS do ceskych operatorov
Otázka od: Stasko Peter
13. 7. 2004 13:13
Zdravim vsewtkych zastavncov logiky a matiky
Xcel by som si urobit programcek na odosielanie SMS do CZ operatorov (hlavne
OS***)ziadna reklama
Ale vobec netusim ako.. Niekedy to slo cez mail, ale nejak to nefunguje.. Ale
pouzivam zly syntax.. Pls. Vas vsetkych o radu...
Diq
Peter Stasko
-----------
stasko@fic.cz
Odpovedá: tomsir1.edu@mail.cez.cz
13. 7. 2004 15:27
podivej se na www stranky oskara, jak vypada formular na odesilani sms,
jake promenne se cim naplnuji, no a potom budes schopen napsat program,
ktery kontaktuje www server oskara, prislusnou stranku a odesle ta
pozadovana data na server ... nic sloziteho, musis se jen prokousat html
kodem oskarovy stranky a podivat se do RFC , jak funguje komnikace klient
<--> server sluzby www ...
Radek
"Stasko Peter" <stasko@fic.cz>@clexpert.cz on 13.07.2004 12:45:02
Odpovezte prosim - delphi-l@clexpert.cz
Odeslano kym: delphi-l-owner@clexpert.cz
Komu: delphi-l@clexpert.cz
Kopie:
Predmet: Odoslat pomocou internetu SMS do ceskych operatorov
Zdravim vsewtkych zastavncov logiky a matiky
Xcel by som si urobit programcek na odosielanie SMS do CZ operatorov
(hlavne OS***)ziadna reklama
Ale vobec netusim ako.. Niekedy to slo cez mail, ale nejak to nefunguje...
Ale pouzivam zly syntax.. Pls. Vas vsetkych o radu...
Diq
Peter Stasko
-----------
stasko@fic.cz
Odpovedá: Jiri Cincura
13. 7. 2004 15:04
Pres jejich web to jde.
Takto (ukazko pro UNIX shell), kdo ma dotazy, at se pta
#!/bin/bash
SMSDIR=~/.sms
TestArgs() {
if [ "$1" != "2" ]; then
echo "Bad arguments, usage: \"sms addressee 'Any text'\"";
exit;
fi
}
TestEnv() {
if [ -d $SMSDIR ] ; then
echo -n "Homedir is $SMSDIR. ";
else
mkdir $SMSDIR;
if [ -d $SMSDIR ] ; then
echo -n "Homedir is $SMSDIR. ";
else
echo "Homedir $SMSDIR not found. Unable to create $SMSDIR.";
exit;
fi
fi
}
SelectAddressbook() {
if [ -f $SMSDIR/addressbook ] ; then
echo -n 'Using local adressbook. ';
ADR=$SMSDIR/addressbook ;
else
if [ -f /etc/addressbook ] ; then
echo -n 'Using global adressbook. ';
ADR=/etc/addressbook;
else
echo 'No addressbook found.';
exit;
fi
fi
}
GetDateTime() {
DATE=`date +'%Y-%m-%d'`
TIME=`date +'%H:%M:%S'`
}
GetUserNo() {
if [ -f $SMSDIR/myphone ] ; then
MYPREFIX1=`awk 'BEGIN { FS=";"}
{
print $1
}'
$SMSDIR/myphone`
if [ "${#MYPREFIX1}" != "3" ]; then
echo "Bad user prefix."
exit;
fi
MYPREFIX2=`awk 'BEGIN { FS=";"}
{
print $2
}' $SMSDIR/myphone`
if [ "${#MYPREFIX2}" != "3" ]; then
echo "Bad user prefix."
exit;
fi
MYNUMBER=`awk 'BEGIN { FS=";"}
{
print $3
}' $SMSDIR/myphone`
if [ "${#MYNUMBER}" != "6" ]; then
echo "Bad user number."
exit;
fi
else
MYPREFIX1="";
MYPREFIX2="";
MYNUMBER="";
fi
}
GetPrefix() {
PREFIX=`awk -v id="$1"
'BEGIN { FS=";"}
{
if ($1 == id)
print $3
}' $ADR`
if [ "${#PREFIX}" != "3" ]; then
echo "Prefix \"$NUMBER\" is not valid."
exit;
fi
}
GetNumber() {
NUMBER=`awk -v id="$1"
'BEGIN { FS=";"}
{
if ($1 == id)
print $4
}' $ADR`
if [ "${#NUMBER}" != "6" ]; then
echo "Number \"$NUMBER\" is not valid."
exit;
fi
}
TestArgs $#
TestEnv
SelectAddressbook
GetDateTime
GetUserNo
GetPrefix $1
GetNumber $1
POST_VAR="predcisli=$PREFIX&number=$NUMBER&mypred1=$MYPREFIX1&mypred2=$MYPRE
FIX2&mynumber=$MYNUMBER&ppp=105446461430873:71efa357fa189a597aed667c3ff97fc4
&locale=en&sender=&message=$2"
echo "$POST_VAR" > /tmp/sms_vars
echo --- >> /tmp/sms_vars
echo -n 'Sending message... '
lynx http://sms.oskarmobil.cz/send.php3
-post_data</tmp/sms_vars>/tmp/sms_result
RESULT=`cat /tmp/sms_result; # | grep 'Message'`
echo $RESULT;
read $ANS;
if [ "$RESULT" = " Congratulations - Message sent!"
]; then
echo 'OK.'
else
echo 'Failed.'
fi
rm /tmp/sms_vars
rm /tmp/sms_result
--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://cincura.net/photo
Odpovedá: Stasko Peter
13. 7. 2004 17:58
Dalo by sa to portovat v tvar DELPHI ?
------------------------------
Pres jejich web to jde.
Takto (ukazko pro UNIX shell), kdo ma dotazy, at se pta
#!/bin/bash
SMSDIR=~/.sms
TestArgs() {
if [ "$1" != "2" ]; then
echo "Bad arguments, usage: \"sms addressee 'Any text'\"";
exit;
fi
}
TestEnv() {
if [ -d $SMSDIR ] ; then
echo -n "Homedir is $SMSDIR. ";
else
mkdir $SMSDIR;
if [ -d $SMSDIR ] ; then
echo -n "Homedir is $SMSDIR. ";
else
echo "Homedir $SMSDIR not found. Unable to create $SMSDIR.";
exit;
fi
fi
}
SelectAddressbook() {
if [ -f $SMSDIR/addressbook ] ; then
echo -n 'Using local adressbook. ';
ADR=$SMSDIR/addressbook ;
else
if [ -f /etc/addressbook ] ; then
echo -n 'Using global adressbook. ';
ADR=/etc/addressbook;
else
echo 'No addressbook found.';
exit;
fi
fi
}
GetDateTime() {
DATE=`date +'%Y-%m-%d'`
TIME=`date +'%H:%M:%S'`
}
GetUserNo() {
if [ -f $SMSDIR/myphone ] ; then
MYPREFIX1=`awk 'BEGIN { FS=";"}
{
print $1
}'
$SMSDIR/myphone`
if [ "${#MYPREFIX1}" != "3" ]; then
echo "Bad user prefix."
exit;
fi
MYPREFIX2=`awk 'BEGIN { FS=";"}
{
print $2
}' $SMSDIR/myphone`
if [ "${#MYPREFIX2}" != "3" ]; then
echo "Bad user prefix."
exit;
fi
MYNUMBER=`awk 'BEGIN { FS=";"}
{
print $3
}' $SMSDIR/myphone`
if [ "${#MYNUMBER}" != "6" ]; then
echo "Bad user number."
exit;
fi
else
MYPREFIX1="";
MYPREFIX2="";
MYNUMBER="";
fi
}
GetPrefix() {
PREFIX=`awk -v id="$1"
'BEGIN { FS=";"}
{
if ($1 == id)
print $3
}' $ADR`
if [ "${#PREFIX}" != "3" ]; then
echo "Prefix \"$NUMBER\" is not valid."
exit;
fi
}
GetNumber() {
NUMBER=`awk -v id="$1"
'BEGIN { FS=";"}
{
if ($1 == id)
print $4
}' $ADR`
if [ "${#NUMBER}" != "6" ]; then
echo "Number \"$NUMBER\" is not valid."
exit;
fi
}
TestArgs $#
TestEnv
SelectAddressbook
GetDateTime
GetUserNo
GetPrefix $1
GetNumber $1
POST_VAR="predcisli=$PREFIX&number=$NUMBER&mypred1=$MYPREFIX1&mypred2=$MYPRE
FIX2&mynumber=$MYNUMBER&ppp=105446461430873:71efa357fa189a597aed667c3ff97fc4
&locale=en&sender=&message=$2"
echo "$POST_VAR" > /tmp/sms_vars
echo --- >> /tmp/sms_vars
echo -n 'Sending message... '
lynx http://sms.oskarmobil.cz/send.php3
-post_data</tmp/sms_vars>/tmp/sms_result
RESULT=`cat /tmp/sms_result; # | grep 'Message'`
echo $RESULT;
read $ANS;
if [ "$RESULT" = " Congratulations - Message sent!"
]; then
echo 'OK.'
else
echo 'Failed.'
fi
rm /tmp/sms_vars
rm /tmp/sms_result
--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://cincura.net/photo
Odpovedá: Stasko Peter
13. 7. 2004 17:58
No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat priamo..
Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle moju spravu na ich
web, ale v akom formate a na aku adresu???
Alebo to staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
diq
-------------
Pres jejich web to jde.
Takto (ukazko pro UNIX shell), kdo ma dotazy, at se pta
#!/bin/bash
SMSDIR=~/.sms
TestArgs() {
if [ "$1" != "2" ]; then
echo "Bad arguments, usage: \"sms addressee 'Any text'\"";
exit;
fi
}
TestEnv() {
if [ -d $SMSDIR ] ; then
echo -n "Homedir is $SMSDIR. ";
else
mkdir $SMSDIR;
if [ -d $SMSDIR ] ; then
echo -n "Homedir is $SMSDIR. ";
else
echo "Homedir $SMSDIR not found. Unable to create $SMSDIR.";
exit;
fi
fi
}
SelectAddressbook() {
if [ -f $SMSDIR/addressbook ] ; then
echo -n 'Using local adressbook. ';
ADR=$SMSDIR/addressbook ;
else
if [ -f /etc/addressbook ] ; then
echo -n 'Using global adressbook. ';
ADR=/etc/addressbook;
else
echo 'No addressbook found.';
exit;
fi
fi
}
GetDateTime() {
DATE=`date +'%Y-%m-%d'`
TIME=`date +'%H:%M:%S'`
}
GetUserNo() {
if [ -f $SMSDIR/myphone ] ; then
MYPREFIX1=`awk 'BEGIN { FS=";"}
{
print $1
}'
$SMSDIR/myphone`
if [ "${#MYPREFIX1}" != "3" ]; then
echo "Bad user prefix."
exit;
fi
MYPREFIX2=`awk 'BEGIN { FS=";"}
{
print $2
}' $SMSDIR/myphone`
if [ "${#MYPREFIX2}" != "3" ]; then
echo "Bad user prefix."
exit;
fi
MYNUMBER=`awk 'BEGIN { FS=";"}
{
print $3
}' $SMSDIR/myphone`
if [ "${#MYNUMBER}" != "6" ]; then
echo "Bad user number."
exit;
fi
else
MYPREFIX1="";
MYPREFIX2="";
MYNUMBER="";
fi
}
GetPrefix() {
PREFIX=`awk -v id="$1"
'BEGIN { FS=";"}
{
if ($1 == id)
print $3
}' $ADR`
if [ "${#PREFIX}" != "3" ]; then
echo "Prefix \"$NUMBER\" is not valid."
exit;
fi
}
GetNumber() {
NUMBER=`awk -v id="$1"
'BEGIN { FS=";"}
{
if ($1 == id)
print $4
}' $ADR`
if [ "${#NUMBER}" != "6" ]; then
echo "Number \"$NUMBER\" is not valid."
exit;
fi
}
TestArgs $#
TestEnv
SelectAddressbook
GetDateTime
GetUserNo
GetPrefix $1
GetNumber $1
POST_VAR="predcisli=$PREFIX&number=$NUMBER&mypred1=$MYPREFIX1&mypred2=$MYPRE
FIX2&mynumber=$MYNUMBER&ppp=105446461430873:71efa357fa189a597aed667c3ff97fc4
&locale=en&sender=&message=$2"
echo "$POST_VAR" > /tmp/sms_vars
echo --- >> /tmp/sms_vars
echo -n 'Sending message... '
lynx http://sms.oskarmobil.cz/send.php3
-post_data</tmp/sms_vars>/tmp/sms_result
RESULT=`cat /tmp/sms_result; # | grep 'Message'`
echo $RESULT;
read $ANS;
if [ "$RESULT" = " Congratulations - Message sent!"
]; then
echo 'OK.'
else
echo 'Failed.'
fi
rm /tmp/sms_vars
rm /tmp/sms_result
--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://cincura.net/photo
Odpovedá: Jiri Matejka
13. 7. 2004 16:40
Na Eurotel to jde pomoci +420cislo@sms.eurotel.cz, ale pridava to tam
nejakou reklamu (stejne jako euroteli brana na webu); na tmobile to jde
poslat, myslim, jen tem co jsou nejak registrovani (TZones); na Oskar nevim,
ale tam je to myslim taky funkcni a snad s mensimi omezenimi nez u
zbyvajicich dvou operatoru. Kazdopadne bych cekal, ze na webu operatoru o
tom budou nejake info.
Jirka Matejka
==>Tuesday, July 13, 2004 5:09 PM stasko@fic.cz wrote:
> No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat
> priamo..
> Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle moju
> spravu na ich web, ale v akom formate a na aku adresu??? Alebo to
> staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
> diq
Odpovedá: Stasko Peter
13. 7. 2004 17:28
Presne to by som potreboval na OSKARA nefiete niekto?? Nieje to na ich
strankach
------------
Na Eurotel to jde pomoci +420cislo@sms.eurotel.cz, ale pridava to tam nejakou
reklamu (stejne jako euroteli brana na webu); na tmobile to jde poslat, myslim,
jen tem co jsou nejak registrovani (TZones); na Oskar nevim, ale tam je to
myslim taky funkcni a snad s mensimi omezenimi nez u zbyvajicich dvou
operatoru. Kazdopadne bych cekal, ze na webu operatoru o tom budou nejake
info.
Jirka Matejka
==>Tuesday, July 13, 2004 5:09 PM stasko@fic.cz wrote:
> No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat
> priamo.. Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle
> moju spravu na ich web, ale v akom formate a na aku adresu??? Alebo to
> staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
> diq
Odpovedá: Peter Ondras
13. 7. 2004 18:01
Sposob ako poslat sms do Oskara je na ich strankach.
http://sms.oskarmobil.cz - zobrazit zdrojovy kod stranky, vyhladat
"<form action" a vytvorit program, ktory bude kontaktovat rovnaky skript
ako je v tom action.
> -----Original Message-----
> Presne to by som potreboval na OSKARA nefiete niekto?? Nieje to na
ich
> strankach
Odpovedá: Jiri Cincura
13. 7. 2004 18:23
Stasko Peter wrote:
> No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat
> priamo..
> Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle moju
> spravu na ich web, ale v akom formate a na aku adresu??? Alebo to
> staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
> diq
Tohle je jen pro Oskara. Napises cislo a message a ono se to posle.
Primo to funguje - staci nejaky HTTP_Send (zdravim Lukase Gebauera).
Portovat do Delphi to jde, ale nejak na to nemam cas. Spis jestli chces se
ozvi na konkretni vec a ja ti poradim. Ono je v tom blno funkci, ale staci
pochopit ten format co se posila lynxu.
Jiri Cincura
ICQ:
__314711544
web:
__[url]http://www.cincura.net[/url]
__[url]http://cincura.net/photo[/url]
Odpovedá: Lahoda Radek
14. 7. 2004 13:36
posilat mail na cislo nejde, to cislo musi mit zaregistrovane alias napr.
radek@mujoskar.cz (dojdou max. 2 sms, bez reklamy)
Radek Lahoda
----- Puvodni zprava -----
Od: "Stasko Peter" <stasko@fic.cz>
Komu: <delphi-l@clexpert.cz>
Odeslano: 13. cervence 2004 17:52
Predmet: Re: Odoslat pomocou internetu SMS do ceskych operatorov
> Presne to by som potreboval na OSKARA nefiete niekto?? Nieje to na ich
strankach
> ------------
> Na Eurotel to jde pomoci +420cislo@sms.eurotel.cz, ale pridava to tam
nejakou reklamu (stejne jako euroteli brana na webu); na tmobile to jde
poslat, myslim, jen tem co jsou nejak registrovani (TZones); na Oskar nevim,
ale tam je to myslim taky funkcni a snad s mensimi omezenimi nez u
zbyvajicich dvou operatoru. Kazdopadne bych cekal, ze na webu operatoru o
tom budou nejake info.
>
> Jirka Matejka
>
> ==>Tuesday, July 13, 2004 5:09 PM stasko@fic.cz wrote:
>
> > No ja mam otazku. Je to sice pekne, ale mne ide o to, ako to poslat
> > priamo.. Napriklad v delphi si napisem nejaku fukciu, ktora mi odosle
> > moju spravu na ich web, ale v akom formate a na aku adresu??? Alebo to
> > staci poslat v nejakom tvare?? Napr. cislotelefonu@operator.cz????
> > diq
>
>
>
>
>
>
>